Dino Crisis Digital Press Kit/Dino Crisis Digital Press Kit.iso/mac/s/00082_Script_82

Text File | 1999-09-01 | 774b | 32 lines

on mousedown
  global gSoundLevel
  set the soundlevel to 0
  puppetsprite 39, true
  repeat while the stilldown

    put the mouseh into x
    set the loch of sprite 39 to x
    --------
    put the loch of sprite 39 into k
    set f = (k - 45) * 26
    --put f into field "count"
    set the movietime of sprite 10 to f
    --------
    updatestage
  end repeat
end

on mouseup
  global gSoundLevel
  set the soundlevel to gSoundLevel
  set the movierate of sprite 10 to 1
  set the locv of sprite 39 to 373
  set the visible of sprite 19 to true
  set the visible of sprite 20 to false
  set the visible of sprite 21 to false
  set the visible of sprite 22 to false
  set the visible of sprite 23 to false
  updatestage
  checkblip
end